00100	BUF1 EQU 1500
00200	BUF2 EQU 500
00300	BUF3 EQU 2500
00400	CENTER EQU 31
00500	PRINTER EQU 18
00600	START ENT6 495
00700	     ENT3 1
00800	     ENT4 1
00900	     ENTA 6
01000	     STA BUF1+1
01100	     ENTA CENTER
01200	     STA BUF3,6
01300	LOOP1 INC4 1
01400	     CMP4 =999=
01500	     JG DONE
01600	     INC2 1
01700	     ENTA 0,6
01800	     ADD 204,3
01900	     STA 196
02000	     LD6 196
02100	     ENTA 46
02200	     SUB BUF1,4
02300	     STA BUF3,6
02400	     CMP2 200,3
02500	     JLE BEND
02600	     INC2 1
02700	     ST2 200,3
02800	     ENT2 0
02900	     DEC3 3
03000	     J3P *+2
03100	     INC3 4
03200	     LDA BUF3,6
03300	BEND CMPA =46=
03400	     JNE LOOP1
03500	     ENTA 0,4
03600	     CHAR
03700	     STX BUF2,1
03800	     INC1 1
03900	     CMP4 =32=
04000	     JG LOOP1
04100	    ENT5 0,4
04200	     ENTA 6
04300	LOOP2 INC5 0,4
04400	     CMP5 =999=
04500	     JG LOOP1
04600	     STA BUF1,5
04700	     JMP LOOP2
04800	DONE ENT6 -1
04900	     ST1 197
05000	     ENT1 BUF1
05100	     MOVE 300(24)
05200	LOOP3A ENT1 23
05300	     INC6 30
05400	LOOP3 LDA BUF2,6
05500	     JBUS *(PRINTER)
05600	     STA BUF1,1(3:5)
05700	     LDA BUF2-1,6
05800	     STA BUF1,1(1:1)
05900	     SRA 1
06000	     STA BUF1-1,1(4:5)
06100	     LDA BUF2-2,6
06200	     STA BUF1-1,1(1:2)
06300	     SRA 2
06400	     STA BUF1-2,1(5:5)
06500	     LDA BUF2-3,6
06600	     STA BUF1-2,1(1:3)
06700	     LDA BUF2-4,6
06800	     STA BUF1-3,1(2:4)
06900	     DEC6 5
07000	     DEC1 4
07100	     J1P LOOP3
07200	     OUT BUF1(PRINTER)
07300	     INC6 30
07400	     CMP6 197
07500	     JLE LOOP3A
07600	     ENT6 32
07700	     ENT2 32
07800	     ENT3 0
07900	     ENT1 BUF1
07950	     JBUS *(PRINTER)
08000	     MOVE 300(24)
08100	L4A  ENT1 6
08200	     ENT5 18
08300	L4   DEC6 1
08400	     DEC2 1
08500	     LDA BUF3,6
08600	     JBUS *(PRINTER)
08700	     ST5 *+1(4:4)
08800	     STA BUF1,1
08900	     DEC5 9
09000	     J5P L4
09100	     DEC1 1
09200	     ENT5 45
09300	     J2P L4
09400	     INC6 64
09500	     INC2 32
09600	     OUT BUF1(PRINTER)
09700	     INC3 1
09800	     CMP3 202
09900	     JL L4A
10000	     HLT
10100	     ORIG 203
10200	     CON 1  
10300	     CON 1  
10400	     CON 1
10500	     CON 32
10600	     CON -1
10700	     CON -32
10800	     END START